home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 3239.ZIP / DVIMTP.ZIP / GBLVARS.H < prev    next >
C/C++ Source or Header  |  1989-04-03  |  14KB  |  325 lines
  1. /* -*-C-*- gblvars.h */
  2. /*-->gblvars*/
  3. /**********************************************************************/
  4. /****************************** gblvars *******************************/
  5. /**********************************************************************/
  6.  
  7. /**********************************************************************/
  8. /*********************  General Global Variables  *********************/
  9. /**********************************************************************/
  10.  
  11. static char curpath[MAXFNAME];            /* current file area */
  12. static char curext[MAXFNAME];            /* current file extension */
  13. static char curname[MAXFNAME];            /* current file name */
  14.  
  15. UNSIGN16 debug_code;            /* 0 for no debug output */
  16.  
  17. static char dviname[MAXFNAME];            /* DVI filespec */
  18. static char dvoname[MAXFNAME];            /* device output filespec */
  19.  
  20. static char fontlist[MAXSTR];            /* FONTLIST environment string */
  21. static char fontpath[MAXFNAME];        /* font directory path */
  22.  
  23. static char helpcmd[MAXSTR];            /* where to look for help */
  24.  
  25. static char message[MAXMSG];            /* for formatting error messages */
  26.  
  27. /***********************************************************************
  28. Magnification table for 144dpi, 200dpi, and 300dpi devices, computed
  29. to 20 figures and sorted by magnitude.
  30.  
  31.     Column 1         Column 2         Column 3
  32. 0.72*sqrt(1.2)**i  sqrt(1.2)**I  1.5*sqrt(1.2)**I    (I = -16,16)
  33.  
  34. ***********************************************************************/
  35.  
  36. static float mag_table[] =
  37.     {
  38.     0.16744898601451165028, 0.18343117374303022733, 0.20093878321741398034,
  39.     0.22011740849163627280, 0.23256803936137783874, 0.24112653986089677641,
  40.     0.25476552262595201888, 0.26414089018996352736, 0.27908164723365340649,
  41.     0.28935184783307613169, 0.30571862715114242265, 0.31696906822795623283,
  42.     0.33489797668038408779, 0.34722221739969135802, 0.34885205904206675812,
  43.     0.36686235258137090718, 0.38036288187354747940, 0.38214828393892802832,
  44.     0.40187757201646090535, 0.41666666087962962963, 0.41862247085048010974,
  45.     0.44023482309764508862, 0.45643545824825697527, 0.45857794072671363398,
  46.     0.48225308641975308642, 0.49999999305555555556, 0.50234696502057613169,
  47.     0.52828178771717410634, 0.54772254989790837033, 0.55029352887205636077,
  48.     0.57870370370370370370, 0.59999999166666666667, 0.60281635802469135802,
  49.     0.63393814526060892761, 0.65726705987749004440, 0.66035223464646763293,
  50.     0.69444444444444444444, 0.71999999000000000000, 0.72337962962962962963,
  51.     0.76072577431273071313, 0.78872047185298805327, 0.79242268157576115952,
  52.     0.83333333333333333333, 0.86399998800000000000, 0.86805555555555555556,
  53.     0.91287092917527685576, 0.94646456622358566393, 0.95090721789091339142,
  54.     1.00000000000000000000, 1.03679998560000000000, 1.04166666666666666670,
  55.     1.09544511501033222690, 1.13575747946830279670, 1.14108866146909606970,
  56.     1.20000000000000000000, 1.24415998272000000000, 1.25000000000000000000,
  57.     1.31453413801239867230, 1.36290897536196335610, 1.36930639376291528360,
  58.     1.44000000000000000000, 1.49299197926400000000, 1.50000000000000000000,
  59.     1.57744096561487840680, 1.63549077043435602730, 1.64316767251549834040,
  60.     1.72800000000000000000, 1.79159037511680000000, 1.80000000000000000000,
  61.     1.89292915873785408810, 1.96258892452122723270, 1.97180120701859800840,
  62.     2.07360000000000000000, 2.14990845014016000000, 2.16000000000000000000,
  63.     2.27151499048542490570, 2.35510670942547267930, 2.36616144842231761010,
  64.     2.48832000000000000000, 2.57989014016819200000, 2.59200000000000000000,
  65.     2.72581798858250988690, 2.82612805131056721510, 2.83939373810678113220,
  66.     2.98598400000000000000, 3.09586816820183040000, 3.11040000000000000000,
  67.     3.27098158629901186430, 3.40727248572813735860, 3.58318080000000000000,
  68.     3.73248000000000000000, 3.92517790355881423710, 4.08872698287376483030,
  69.     4.29981696000000000000, 4.47897600000000000000, 4.90647237944851779640,
  70.     5.37477120000000000000, 5.88776685533822135560, 6.44972544000000000000
  71.     };
  72.  
  73. INT16 mag_index;        /* set by actfact */
  74.  
  75. #define MAGTABSIZE (sizeof(mag_table) / sizeof(float))
  76.  
  77. static int g_errenc = 0;        /* has an error been encountered?      */
  78. static char g_logname[MAXSTR];        /* name of log file, if created          */
  79. BOOLEAN g_dolog = TRUE;        /* allow log file creation          */
  80. FILE *g_logfp = (FILE*)NULL;    /* log file pointer (for errors)      */
  81. static char g_progname[MAXSTR];    /* program name                  */
  82.  
  83. FILE *plotfp = (FILE*)NULL;    /* plot file pointer              */
  84.  
  85. struct char_entry
  86. {                /* character entry              */
  87.    COORDINATE wp, hp;        /* width and height in pixels          */
  88.    COORDINATE xoffp, yoffp;    /* x offset and y offset in pixels      */
  89.    long fontrp;            /* font file raster pointer          */
  90.    UNSIGN32 tfmw;        /* TFM width                  */
  91.    INT32 dx, dy;        /* character escapements          */
  92.    UNSIGN16 pxlw;        /* pixel width == round(TFM width in      */
  93.                 /* pixels for .PXL files, or          */
  94.                 /* float(char_dx)/65536.0 for .GF and .PK */
  95.                 /* files)                  */
  96.    INT16 refcount;        /* reference count for memory management  */
  97.    UNSIGN32 *rasters;        /* raster description (dynamically loaded) */
  98.  
  99. #if    (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2)
  100.    BOOLEAN isloaded;        /* is the character already downloaded?   */
  101. #endif /* (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2) */
  102.  
  103. #if    HPJETPLUS
  104.    BOOLEAN istoobig;        /* Too big (or too odd) to be loaded */
  105. #endif
  106.  
  107. #if    CANON_A2
  108.    BOOLEAN isknown;        /* Character is known */
  109.    BOOLEAN istoobig;        /* Too big to be loaded */
  110. #endif
  111.  
  112. #if    BBNBITGRAPH
  113.    BOOLEAN istoobig;        /* is the character too big for BitGraph? */
  114.    BOOLEAN isloaded;        /* is the character loaded in the BitGraph?*/
  115.    INT16 bgfont, bgchar;    /* BitGraph font and character          */
  116. #endif /* BBNBITGRAPH */
  117.  
  118. };
  119.  
  120. struct font_entry
  121. {
  122.     struct font_entry *next;    /* pointer to next font entry           */
  123.     void (*charxx)();        /* pointer to chargf(), charpk(), charpxl()*/
  124.     FILE *font_file_id;        /* file identifier (NULL if none)       */
  125.     INT32 k;            /* font number                             */
  126.     UNSIGN32 c;            /* checksum                                */
  127.     UNSIGN32 d;            /* design size                             */
  128.     UNSIGN32 s;            /* scale factor                            */
  129.     INT32 font_space;        /* computed from FNT_DEF s parameter       */
  130.     UNSIGN32 font_mag;        /* computed from FNT_DEF s and d parameters*/
  131.     UNSIGN32 magnification;    /* magnification read from PXL file       */
  132.     UNSIGN32 designsize;    /* design size read from PXL file       */
  133.     UNSIGN32 hppp;        /* horizontal pixels/point * 2**16       */
  134.     UNSIGN32 vppp;        /* vertical pixels/point * 2**16       */
  135.     INT32 min_m;        /* GF bounding box values           */
  136.     INT32 max_m;
  137.     INT32 min_n;
  138.     INT32 max_n;
  139.  
  140. #if    (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT)
  141.     UNSIGN16 font_number;    /* font number (0..32767) */
  142. #endif /* (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) */
  143.  
  144. #if    CANON_A2
  145.     COORDINATE cell_w;
  146.     COORDINATE cell_h;
  147.     COORDINATE cell_d;
  148.     UNSIGN16 nloaded;
  149.     UNSIGN32 storage;
  150. #endif /* CANON_A2 */
  151.  
  152.     BYTE font_type;        /* GF, PK, or PXL font file           */
  153.     BYTE a;            /* length of font area in n[]              */
  154.     BYTE l;            /* length of font name in n[]              */
  155.     char n[MAXSTR];        /* font area and name                      */
  156.     char name[MAXSTR];        /* full name of PXL file           */
  157.     struct char_entry ch[NPXLCHARS];/* character information           */
  158. };
  159.  
  160. struct font_list
  161. {
  162.     FILE *font_id;        /* file identifier               */
  163.     INT16 use_count;        /* count of "opens"               */
  164. };
  165.  
  166. INT32 cache_size;        /* record of how much character raster        */
  167.                 /* is actually used                */
  168. float conv;            /* converts DVI units to pixels            */
  169. UNSIGN16 copies;        /* number of copies to print of each page   */
  170. INT16 cur_page_number;        /* sequential output page number in 1..N    */
  171. INT16 cur_index;        /* current index in page_ptr[]              */
  172.  
  173. COORDINATE xcp,ycp;        /* current position                */
  174. UNSIGN32 den;            /* denominator specified in preamble        */
  175. FILE *dvifp = (FILE*)NULL;    /* DVI file pointer                */
  176. struct font_entry *fontptr;    /* font_entry pointer                */
  177. struct font_entry *hfontptr = (struct font_entry *)NULL;
  178.                 /* head font_entry pointer            */
  179.  
  180. #if    (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT)
  181. UNSIGN16 font_count;        /* used to assign unique font numbers        */
  182. struct font_entry *font_table[MAXFONTS];
  183. #endif /* (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) */
  184.  
  185. #if    (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2)
  186. BOOLEAN font_switched;        /* current font has changed            */
  187. #endif /* (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2) */
  188.  
  189. INT16 gf_index, pk_index, pxl_index;
  190.                 /* indexes into filelist[] in fontfile();   */
  191.                 /* they define the search order, and are    */
  192.                 /* in initglob().                */
  193. UNSIGN32 gpower[33];        /* gpower[k] = 2**k-1 (k = 0..32)        */
  194. INT32 h;            /* current horizontal position            */
  195. COORDINATE hh;            /* current horizontal position in pixels    */
  196.  
  197. #if    HPLASERJET
  198. INT16 hpres;            /* output resolution (75, 100, 150, 300 dpi) */
  199. #endif /* HPLASERJET */
  200.  
  201. UNSIGN32 img_mask[32];        /* initialized at run-time so that bit k    */
  202.                 /* (counting from high end) is one        */
  203. UNSIGN32 img_row[(MAX_M - MIN_M + 1 + 31) >> 5];
  204.                 /* current character image row of bits        */
  205. INT16 max_m, min_m, max_n, min_n;
  206.                 /* current character matrix extents        */
  207. UNSIGN16 img_words;        /* number of words in use in img_row[]        */
  208. float leftmargin;        /* left margin in inches            */
  209. COORDINATE lmargin;        /* left margin offset in pixels            */
  210. INT16 nopen;            /* number of open PXL files            */
  211. INT16 page_count;        /* number of entries in page_ptr[]        */
  212.  
  213. #if    HPJETPLUS
  214. INT16 page_fonts;        /* count of fonts used on current page      */
  215. #endif /* HPJETPLUS */
  216.  
  217. long page_ptr[MAXPAGE+1];    /* byte pointers to pages (reverse order)   */
  218.  
  219. #if    POSTSCRIPT
  220. long page_loc[MAXPAGE+1];    /* byte pointers to output pages        */
  221. INT32 page_tex[MAXPAGE+1];    /* TeX's \count0 page numbers            */
  222. #endif /* POSTSCRIPT */
  223.  
  224. INT16 page_begin[MAXREQUEST+1],
  225.     page_end[MAXREQUEST+1],
  226.     page_step[MAXREQUEST+1];    /* explicit page range requests            */
  227. INT16 npage;            /* number of explicit page range requests   */
  228. struct font_list font_files[MAXOPEN+1];
  229.                 /* list of open PXL file identifiers        */
  230.  
  231. UNSIGN32 power[32];        /* power[k] = 1 << k                */
  232.  
  233. #if    POSTSCRIPT
  234. BOOLEAN ps_vmbug;        /* reload fonts on each page when TRUE        */
  235. #endif /* POSTSCRIPT */
  236.  
  237. UNSIGN32 rightones[HOST_WORD_SIZE];/* bit masks */
  238.  
  239. #if    (APPLEIMAGEWRITER | EPSON | DECLA75 | DECLN03PLUS)
  240. BOOLEAN runlengthcode = FALSE;        /* this is runtime option '-r' */
  241. #endif /* (APPLEIMAGEWRITER | EPSON | DECLA75 | DECLN03PLUS) */
  242.  
  243. #if    (GOLDENDAWNGL100 | TOSHIBAP1351)
  244. BOOLEAN runlengthcode = FALSE;        /* this is runtime option '-r' */
  245. #endif /* (GOLDENDAWNGL100 | TOSHIBAP1351) */
  246.  
  247. UNSIGN32 runmag;        /* runtime magnification            */
  248. UNSIGN32 mag;            /* magnification specified in preamble        */
  249. UNSIGN32 num;            /* numerator specified in preamble        */
  250. struct font_entry *pfontptr = (struct font_entry *)NULL;
  251.                 /* previous font_entry pointer            */
  252. BOOLEAN preload = TRUE;        /* preload the font descriptions?        */
  253. FILE *fontfp = (FILE*)NULL;    /* font file pointer                */
  254.  
  255. BOOLEAN quiet = FALSE;        /* suppress status display when TRUE        */
  256.  
  257. BOOLEAN backwards = FALSE;    /* print in backwards order            */
  258.  
  259. #if    (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT)
  260. COORDINATE rule_height;        /* parameters of last rule set */
  261. COORDINATE rule_width;
  262. COORDINATE str_ycp;        /* last string ycp value */
  263. UNSIGN16 size_limit;        /* character size limit in pixels -- larger */
  264.                 /* characters are downloaded each time they */
  265.                 /* are required to avoid PostScript ROM bugs */
  266. #endif /* (CANON_A2 | HPJETPLUS | IMPRESS | POSTSCRIPT) */
  267.  
  268. #if    (BSD42 | OS_TOPS20)
  269. BOOLEAN spool_output = FALSE;    /* offer to send output to spooler */
  270. #endif /* (BSD42 | OS_TOPS20) */
  271.  
  272. static char subpath[MAXFNAME];        /* font substitution file path            */
  273. static char subname[MAXFNAME];        /* font substitution file name field        */
  274. static char subext[MAXFNAME];        /* font substitution file extension field   */
  275. static char subfile[MAXFNAME];        /* font substitution filename            */
  276.  
  277. INT32 tex_counter[10];        /* TeX c0..c9 counters on current page      */
  278. float topmargin;        /* top margin in inches                */
  279. COORDINATE tmargin;        /* top margin offset in pixels            */
  280.  
  281. INT32 v;            /* current vertical position            */
  282.  
  283. #if    VIRTUAL_FONTS
  284. BOOLEAN virt_font;        /* virtual font cache flag                  */
  285. struct virt_data
  286.     {
  287.     int    cnt;
  288.     char    *ptr;
  289.     char    *base;
  290.     };
  291. struct virt_data virt_save[_NFILE];/* space for saving old FILE values      */
  292. #endif /* VIRTUAL_FONTS */
  293.  
  294. COORDINATE vv;            /* current vertical position in pixels        */
  295.  
  296. #if    BBNBITGRAPH
  297. struct char_entry *bgcp[NBGFONTS+(NBGFONTS+2)/3][NPXLCHARS];
  298.     /* Pointer to corresponding char_entry for this BitGraph font */
  299.     /* and character.  These are used to set the char_entry's */
  300.     /* status to "not loaded" when we have to reuse the BitGraph */
  301.     /* character.  The array is cleared initially in devinit(). */
  302.  
  303. INT16 fullfont = 0;        /* full font to load in BitGraph        */
  304. BOOLEAN g_interactive=TRUE;    /* is the program running interactively   */
  305.                 /* (i.e., standard output not redirected)? */
  306. INT16 partchar = FIRSTBGCHAR;    /* partial font character to load in BitGraph*/
  307. INT16 partfont = NBGFONTS;    /* partial font to load in BitGraph        */
  308. INT16 pbghpos;            /* previous BitGraph horizontal position    */
  309. INT16 pbgvpos;            /* previous BitGraph vertical position        */
  310. INT16 pbgf = -1;        /* previous BitGraph font            */
  311. COORDINATE xdiff;        /* x difference                    */
  312. COORDINATE xscreen;        /* x screen adjustment                */
  313. COORDINATE ydiff;        /* y difference                    */
  314. COORDINATE yscreen;        /* y screen adjustment                */
  315. long cpagep;            /* pointer to current page in DVI file        */
  316. long ppagep;            /* pointer to previous page in DVI file     */
  317.  
  318. #if    OS_TOPS20
  319. #define jfn_plotfp (jfnof(fileno(plotfp)))
  320.  
  321. int bg_length,bg_width,bg_1ccoc,bg_2ccoc,bg_modeword,bg_sysmsg;
  322. #endif /* OS_TOPS20 */
  323.  
  324. #endif /* BBNBITGRAPH */
  325.